home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Interactive 7
/
PC World Interactive 7.iso
/
program
/
pasprog.EXE
/
TAKVIMTP.TXT
< prev
next >
Wrap
Text File
|
1995-10-02
|
2KB
|
35 lines
┌────────────────────────────────────────────────────────────────────────────┐
│┌──────────────────────────────────────────────────────────────────────────┐│
││ ││
││ ││
││ Takvim Nesnesi ││
││ ││
││ ││
│└──────────────────────────────────────────────────────────────────────────┘│
│ PS 26 · Eylül'95 Murat AKSARAY │
└────────────────────────────────────────────────────────────────────────────┘
Unit olarak yazdìºìm takvim nesnesi, Pascal'da OOP tekniºini öºrenme
aƒamasìndaki programcìlarìn iƒine yarayacaºìnì umuyorum. Bu nedenle nesne,
geliƒtirilmeye açìk tutulmuƒtur. Takvim nesnesini kullanan örnek programda
da göreceºiniz gibi nesne kodunda herhangi bir deºiƒiklik yapmadan,
nesnemize ekler getirmek mümkündür. Virtual olarak tanìmlanmìƒ HandleEvent
prosedürüne program içinde, Help yordamì da eklenerek nesneyi geliƒtirmeye
bir örnek verilmiƒtir. Bunun dìƒìnda programìn yapìsì deºiƒtirilerek
farklì nesneler üretilebilir.
Takvim'de kullanìlan Tuƒlar:
──────────────────────────────
+ Bir gün sonrasìnì,
- Bir gün öncesini,
PgUp Bir ay sonrasìnì,
PgDn Bir ay öncesini gösterir.
Oklar takvimi ekran üzerinde hareket ettirir.